/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_10 / modeconv / programs / arcsimcol

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 3e 41 52 | 43 53 49 4d 43 4f 4c 0d |.....>AR|CSIMCOL.|
|00000010| 00 14 21 f4 20 62 79 20 | 52 6f 62 69 6e 20 4e 65 |..!. by |Robin Ne|
|00000020| 77 6d 61 6e 2c 20 41 70 | 72 69 6c 20 31 39 38 38 |wman, Ap|ril 1988|
|00000030| 0d 00 1e 43 f4 20 54 68 | 65 20 70 72 6f 67 72 61 |...C. Th|e progra|
|00000040| 6d 20 6c 6f 61 64 73 20 | 61 20 6d 6f 64 65 20 37 |m loads |a mode 7|
|00000050| 20 73 63 72 65 65 6e 2c | 20 63 6f 6e 76 65 72 74 | screen,| convert|
|00000060| 73 20 69 74 20 74 6f 20 | 6d 6f 64 65 20 39 2c 20 |s it to |mode 9, |
|00000070| 61 6e 64 0d 00 28 3f f4 | 20 74 68 65 6e 20 64 75 |and..(?.| then du|
|00000080| 6d 70 73 20 69 74 20 75 | 73 69 6e 67 20 48 61 72 |mps it u|sing Har|
|00000090| 64 63 6f 70 79 46 58 20 | 6f 72 20 61 6e 79 20 6f |dcopyFX |or any o|
|000000a0| 74 68 65 72 20 64 75 6d | 70 20 75 74 69 6c 69 74 |ther dum|p utilit|
|000000b0| 79 2c 0d 00 32 44 f4 20 | 62 65 66 6f 72 65 20 72 |y,..2D. |before r|
|000000c0| 65 73 74 6f 72 69 6e 67 | 20 74 68 65 20 6f 72 69 |estoring| the ori|
|000000d0| 67 69 6e 61 6c 20 6d 6f | 64 65 20 37 20 73 63 72 |ginal mo|de 7 scr|
|000000e0| 65 65 6e 20 61 6e 64 20 | 63 68 61 72 61 63 74 65 |een and |characte|
|000000f0| 72 20 73 65 74 2e 0d 00 | 3c 42 f4 20 54 68 65 20 |r set...|<B. The |
|00000100| 70 72 6f 67 61 6d 20 69 | 73 20 62 61 73 65 64 20 |progam i|s based |
|00000110| 6f 6e 20 61 20 70 72 6f | 67 72 61 6d 20 53 49 4d |on a pro|gram SIM|
|00000120| 55 4c 38 20 6f 72 69 67 | 69 6e 61 6c 6c 79 20 62 |UL8 orig|inally b|
|00000130| 72 6f 61 64 63 61 73 74 | 0d 00 46 47 f4 20 6f 6e |roadcast|..FG. on|
|00000140| 20 43 45 45 46 41 58 2e | 20 54 68 69 73 20 76 65 | CEEFAX.| This ve|
|00000150| 72 73 69 6f 6e 20 68 61 | 73 20 62 65 65 6e 20 65 |rsion ha|s been e|
|00000160| 78 74 65 6e 64 65 64 20 | 61 6e 64 20 6d 6f 64 69 |xtended |and modi|
|00000170| 66 69 65 64 20 74 6f 20 | 75 74 69 6c 69 73 65 0d |fied to |utilise.|
|00000180| 00 50 45 f4 20 66 65 61 | 74 75 72 65 73 20 6f 66 |.PE. fea|tures of|
|00000190| 20 41 52 43 20 42 41 53 | 49 43 20 73 75 63 68 20 | ARC BAS|IC such |
|000001a0| 61 73 20 43 41 53 45 20 | 61 6e 64 20 6d 75 6c 74 |as CASE |and mult|
|000001b0| 69 2d 6c 69 6e 65 20 49 | 46 20 54 48 45 4e 20 45 |i-line I|F THEN E|
|000001c0| 4c 53 45 2e 0d 00 5a 05 | 20 0d 00 64 04 0d 00 6e |LSE...Z.| ..d...n|
|000001d0| 04 0d 00 78 43 de 20 74 | 65 6c 65 74 65 78 74 20 |...xC. t|eletext |
|000001e0| 26 35 30 30 3a 20 f4 20 | 50 61 67 65 5f 57 69 64 |&500: . |Page_Wid|
|000001f0| 74 68 2a 50 61 67 65 5f | 48 65 69 67 68 74 2d 31 |th*Page_|Height-1|
|00000200| 20 28 70 6c 75 73 20 61 | 20 62 69 74 20 65 78 74 | (plus a| bit ext|
|00000210| 72 61 21 29 0d 00 82 20 | de 20 63 25 20 37 2c 20 |ra!)... |. c% 7, |
|00000220| 64 65 66 6e 20 38 2c 20 | 63 68 73 61 76 65 25 20 |defn 8, |chsave% |
|00000230| 31 37 39 32 0d 00 8c 07 | eb 20 37 0d 00 96 0b f2 |1792....|. 7.....|
|00000240| 6d 37 6c 6f 61 64 0d 00 | a0 0b f2 70 6d 6f 64 65 |m7load..|...pmode|
|00000250| 37 0d 00 aa 1f 4b 3d a5 | 20 3a f4 20 70 75 73 68 |7....K=.| :. push|
|00000260| 20 61 20 6b 65 79 20 74 | 6f 20 66 69 6e 69 73 68 | a key t|o finish|
|00000270| 0d 00 b4 05 e0 0d 00 be | 04 0d 00 c8 0c dd f2 70 |........|.......p|
|00000280| 6d 6f 64 65 37 0d 00 d2 | 3e ea 20 44 25 2c 50 61 |mode7...|>. D%,Pa|
|00000290| 67 65 5f 57 69 64 74 68 | 2c 50 61 67 65 5f 48 65 |ge_Width|,Page_He|
|000002a0| 69 67 68 74 2c 62 61 63 | 6b 67 72 6f 75 6e 64 2c |ight,bac|kground,|
|000002b0| 63 68 61 6e 67 65 64 25 | 2c 63 6f 64 65 25 2c 63 |changed%|,code%,c|
|000002c0| 68 61 72 0d 00 dc 39 ea | 20 63 68 61 72 5f 73 74 |har...9.| char_st|
|000002d0| 6f 72 65 2c 64 6f 75 62 | 6c 65 5f 68 65 69 67 68 |ore,doub|le_heigh|
|000002e0| 74 2c 64 6f 75 62 6c 65 | 5f 72 6f 77 2c 66 6f 6e |t,double|_row,fon|
|000002f0| 74 2c 66 6f 72 65 67 72 | 6f 75 6e 64 0d 00 e6 3f |t,foregr|ound...?|
|00000300| ea 20 67 72 61 70 68 5f | 6d 6f 64 65 2c 67 72 61 |. graph_|mode,gra|
|00000310| 70 68 5f 66 6f 6e 74 2c | 68 6f 6c 64 5f 67 72 61 |ph_font,|hold_gra|
|00000320| 70 68 69 63 73 2c 68 6f | 6c 64 5f 63 68 61 72 2c |phics,ho|ld_char,|
|00000330| 6c 6f 77 65 72 2c 6c 65 | 66 74 25 0d 00 f0 1a ea |lower,le|ft%.....|
|00000340| 20 6d 6f 64 65 2c 73 69 | 7a 65 25 2c 75 70 70 65 | mode,si|ze%,uppe|
|00000350| 72 2c 78 2c 79 0d 00 fa | 07 ea 20 85 0d 01 04 25 |r,x,y...|.. ....%|
|00000360| 50 61 67 65 5f 57 69 64 | 74 68 20 3d 20 34 30 3a |Page_Wid|th = 40:|
|00000370| 20 50 61 67 65 5f 48 65 | 69 67 68 74 20 3d 20 32 | Page_He|ight = 2|
|00000380| 34 0d 01 0e 0e 63 68 61 | 6e 67 65 64 25 3d a3 0d |4....cha|nged%=..|
|00000390| 01 18 05 87 0d 01 22 0e | f2 73 61 76 65 6d 6f 64 |......".|.savemod|
|000003a0| 65 37 0d 01 2c 12 ee 20 | 85 20 ea 20 f2 65 72 72 |e7..,.. |. . .err|
|000003b0| 6f 72 3a e1 0d 01 36 06 | eb 39 0d 01 40 05 87 0d |or:...6.|.9..@...|
|000003c0| 01 4a 15 61 6c 70 68 61 | 6e 75 6d 65 72 69 63 73 |.J.alpha|numerics|
|000003d0| 20 3d 20 30 0d 01 54 17 | 63 6f 6e 74 69 67 75 6f | = 0..T.|contiguo|
|000003e0| 75 73 20 3d 20 31 32 38 | 2d 33 32 0d 01 5e 13 73 |us = 128|-32..^.s|
|000003f0| 65 70 61 72 61 74 65 64 | 20 3d 20 31 32 38 0d 01 |eparated| = 128..|
|00000400| 68 05 20 0d 01 72 12 67 | 72 61 70 68 5f 6d 6f 64 |h. ..r.g|raph_mod|
|00000410| 65 20 3d 20 31 0d 01 7c | 15 68 6f 6c 64 5f 67 72 |e = 1..||.hold_gr|
|00000420| 61 70 68 69 63 73 20 3d | 20 32 0d 01 86 15 64 6f |aphics =| 2....do|
|00000430| 75 62 6c 65 5f 68 65 69 | 67 68 74 20 3d 20 34 0d |uble_hei|ght = 4.|
|00000440| 01 90 05 20 0d 01 9a 12 | 64 6f 75 62 6c 65 5f 72 |... ....|double_r|
|00000450| 6f 77 20 3d 20 30 0d 01 | a4 19 75 70 70 65 72 20 |ow = 0..|..upper |
|00000460| 3d 20 31 20 3a 20 6c 6f | 77 65 72 20 3d 20 35 0d |= 1 : lo|wer = 5.|
|00000470| 01 ae 04 0d 01 b8 04 0d | 01 c2 04 0d 01 cc 05 20 |........|....... |
|00000480| 0d 01 d6 0e f2 73 61 76 | 65 63 68 61 72 73 0d 01 |.....sav|echars..|
|00000490| e0 0d f2 64 65 66 63 68 | 61 72 73 0d 01 ea 05 20 |...defch|ars.... |
|000004a0| 0d 01 f4 0b f4 20 73 74 | 61 72 74 0d 01 fe 14 50 |..... st|art....P|
|000004b0| 61 67 65 5f 48 65 69 67 | 68 74 20 3d 20 32 35 0d |age_Heig|ht = 25.|
|000004c0| 02 08 05 20 0d 02 12 1a | 73 69 7a 65 25 20 3d 20 |... ....|size% = |
|000004d0| 50 61 67 65 5f 48 65 69 | 67 68 74 2a 33 32 0d 02 |Page_Hei|ght*32..|
|000004e0| 1c 05 20 0d 02 26 1b e3 | 20 79 20 3d 20 30 20 b8 |.. ..&..| y = 0 .|
|000004f0| 20 50 61 67 65 5f 48 65 | 69 67 68 74 2d 31 0d 02 | Page_He|ight-1..|
|00000500| 30 05 20 0d 02 3a 21 f4 | 20 53 65 74 20 27 73 74 |0. ..:!.| Set 'st|
|00000510| 61 72 74 20 6f 66 20 72 | 6f 77 27 20 64 65 66 61 |art of r|ow' defa|
|00000520| 75 6c 74 73 0d 02 44 05 | 20 0d 02 4e 1b 67 72 61 |ults..D.| ..N.gra|
|00000530| 70 68 5f 66 6f 6e 74 20 | 3d 20 63 6f 6e 74 69 67 |ph_font |= contig|
|00000540| 75 6f 75 73 0d 02 58 18 | 66 6f 6e 74 20 3d 20 61 |uous..X.|font = a|
|00000550| 6c 70 68 61 6e 75 6d 65 | 72 69 63 73 0d 02 62 0c |lphanume|rics..b.|
|00000560| 6d 6f 64 65 20 3d 20 30 | 0d 02 6c 12 68 6f 6c 64 |mode = 0|..l.hold|
|00000570| 5f 63 68 61 72 20 3d 20 | 33 32 0d 02 76 3f e7 20 |_char = |32..v?. |
|00000580| 64 6f 75 62 6c 65 5f 72 | 6f 77 20 3d 20 75 70 70 |double_r|ow = upp|
|00000590| 65 72 20 8c 20 64 6f 75 | 62 6c 65 5f 72 6f 77 20 |er . dou|ble_row |
|000005a0| 3d 20 6c 6f 77 65 72 20 | 20 8b 20 64 6f 75 62 6c |= lower | . doubl|
|000005b0| 65 5f 72 6f 77 20 3d 20 | 30 0d 02 80 23 66 6f 72 |e_row = |0...#for|
|000005c0| 65 67 72 6f 75 6e 64 20 | 3d 20 37 20 3a 20 62 61 |eground |= 7 : ba|
|000005d0| 63 6b 67 72 6f 75 6e 64 | 20 3d 20 30 0d 02 8a 23 |ckground| = 0...#|
|000005e0| fb 20 66 6f 72 65 67 72 | 6f 75 6e 64 20 3a 20 fb |. foregr|ound : .|
|000005f0| 20 62 61 63 6b 67 72 6f | 75 6e 64 2b 31 32 38 0d | backgro|und+128.|
|00000600| 02 94 05 20 0d 02 9e 1a | e3 20 78 20 3d 20 30 20 |... ....|. x = 0 |
|00000610| b8 20 50 61 67 65 5f 57 | 69 64 74 68 2d 31 0d 02 |. Page_W|idth-1..|
|00000620| a8 05 20 0d 02 b2 2a 63 | 68 61 72 20 3d 20 74 65 |.. ...*c|har = te|
|00000630| 6c 65 74 65 78 74 3f 28 | 78 2b 79 2a 50 61 67 65 |letext?(|x+y*Page|
|00000640| 5f 57 69 64 74 68 29 20 | 80 20 31 32 37 0d 02 bc |_Width) |. 127...|
|00000650| 2b 63 68 61 72 20 3d 20 | 63 68 61 72 20 2d 20 28 |+char = |char - (|
|00000660| 28 63 68 61 72 20 80 20 | 33 32 29 20 3e 20 30 20 |(char . |32) > 0 |
|00000670| 29 20 2a 20 66 6f 6e 74 | 0d 02 c6 41 f4 20 41 6d |) * font|...A. Am|
|00000680| 65 6e 64 20 27 63 68 61 | 72 27 20 74 6f 20 69 6e |end 'cha|r' to in|
|00000690| 74 65 72 6e 61 6c 20 67 | 72 61 70 68 69 63 73 20 |ternal g|raphics |
|000006a0| 63 68 61 72 61 63 74 65 | 72 20 69 66 20 61 70 70 |characte|r if app|
|000006b0| 72 6f 70 72 69 61 74 65 | 2e 0d 02 d0 17 f4 20 44 |ropriate|...... D|
|000006c0| 6f 20 3c 42 65 66 6f 72 | 65 3e 20 74 65 73 74 73 |o <Befor|e> tests|
|000006d0| 0d 02 da 05 20 0d 02 e4 | 0d c8 8e 20 63 68 61 72 |.... ...|... char|
|000006e0| 20 ca 0d 02 ee 05 20 0d | 02 f8 08 c9 20 31 32 0d | ..... .|.... 12.|
|000006f0| 03 02 23 6d 6f 64 65 20 | 3d 20 6d 6f 64 65 20 80 |..#mode |= mode .|
|00000700| 20 28 ac 20 64 6f 75 62 | 6c 65 5f 68 65 69 67 68 | (. doub|le_heigh|
|00000710| 74 29 0d 03 0c 12 68 6f | 6c 64 5f 63 68 61 72 20 |t)....ho|ld_char |
|00000720| 3d 20 33 32 0d 03 16 08 | c9 20 31 33 0d 03 20 1d |= 32....|. 13.. .|
|00000730| 6d 6f 64 65 3d 6d 6f 64 | 65 20 84 20 64 6f 75 62 |mode=mod|e . doub|
|00000740| 6c 65 5f 68 65 69 67 68 | 74 0d 03 2a 29 e7 20 64 |le_heigh|t..*). d|
|00000750| 6f 75 62 6c 65 5f 72 6f | 77 20 3d 20 30 20 8c 20 |ouble_ro|w = 0 . |
|00000760| 64 6f 75 62 6c 65 5f 72 | 6f 77 20 3d 20 75 70 70 |double_r|ow = upp|
|00000770| 65 72 0d 03 34 11 68 6f | 6c 64 5f 63 68 61 72 20 |er..4.ho|ld_char |
|00000780| 3d 20 30 0d 03 3e 08 c9 | 20 32 38 0d 03 48 12 62 |= 0..>..| 28..H.b|
|00000790| 61 63 6b 67 72 6f 75 6e | 64 20 3d 20 30 0d 03 52 |ackgroun|d = 0..R|
|000007a0| 14 fb 20 62 61 63 6b 67 | 72 6f 75 6e 64 2b 31 32 |.. backg|round+12|
|000007b0| 38 0d 03 5c 08 c9 20 32 | 39 0d 03 66 1b 62 61 63 |8..\.. 2|9..f.bac|
|000007c0| 6b 67 72 6f 75 6e 64 20 | 3d 20 66 6f 72 65 67 72 |kground |= foregr|
|000007d0| 6f 75 6e 64 0d 03 70 14 | fb 20 62 61 63 6b 67 72 |ound..p.|. backgr|
|000007e0| 6f 75 6e 64 2b 31 32 38 | 0d 03 7a 08 c9 20 33 30 |ound+128|..z.. 30|
|000007f0| 0d 03 84 1f 6d 6f 64 65 | 20 3d 20 6d 6f 64 65 20 |....mode| = mode |
|00000800| 84 20 68 6f 6c 64 5f 67 | 72 61 70 68 69 63 73 0d |. hold_g|raphics.|
|00000810| 03 8e 05 7f 0d 03 98 05 | cb 0d 03 a2 13 63 68 61 |........|.....cha|
|00000820| 72 5f 73 74 6f 72 65 3d | 63 68 61 72 0d 03 ac 6a |r_store=|char...j|
|00000830| e7 20 28 6d 6f 64 65 20 | 80 20 68 6f 6c 64 5f 67 |. (mode |. hold_g|
|00000840| 72 61 70 68 69 63 73 29 | 20 3c 3e 20 30 20 80 20 |raphics)| <> 0 . |
|00000850| 28 6d 6f 64 65 20 80 20 | 67 72 61 70 68 5f 6d 6f |(mode . |graph_mo|
|00000860| 64 65 29 20 3c 3e 20 30 | 20 80 20 28 63 68 61 72 |de) <> 0| . (char|
|00000870| 3c 33 32 29 20 80 20 28 | 68 6f 6c 64 5f 63 68 61 |<32) . (|hold_cha|
|00000880| 72 3c 3e 30 29 20 8c 20 | 63 68 61 72 3d 68 6f 6c |r<>0) . |char=hol|
|00000890| 64 5f 63 68 61 72 0d 03 | b6 05 20 0d 03 c0 13 f2 |d_char..|.. .....|
|000008a0| 64 72 61 77 5f 63 68 61 | 72 28 78 2c 79 29 0d 03 |draw_cha|r(x,y)..|
|000008b0| ca 05 20 0d 03 d4 13 63 | 68 61 72 3d 63 68 61 72 |.. ....c|har=char|
|000008c0| 5f 73 74 6f 72 65 0d 03 | de 21 e7 20 63 68 61 72 |_store..|.!. char|
|000008d0| 3e 31 32 37 20 8c 20 68 | 6f 6c 64 5f 63 68 61 72 |>127 . h|old_char|
|000008e0| 20 3d 20 63 68 61 72 0d | 03 e8 05 20 0d 03 f2 16 | = char.|... ....|
|000008f0| f4 20 44 6f 20 3c 41 66 | 74 65 72 3e 20 74 65 73 |. Do <Af|ter> tes|
|00000900| 74 73 0d 03 fc 05 20 0d | 04 06 0d c8 8e 20 63 68 |ts.... .|..... ch|
|00000910| 61 72 20 ca 0d 04 10 08 | c9 20 32 35 0d 04 1a 1b |ar .....|. 25....|
|00000920| 67 72 61 70 68 5f 66 6f | 6e 74 20 3d 20 63 6f 6e |graph_fo|nt = con|
|00000930| 74 69 67 75 6f 75 73 0d | 04 24 30 e7 20 28 6d 6f |tiguous.|.$0. (mo|
|00000940| 64 65 20 80 20 67 72 61 | 70 68 5f 6d 6f 64 65 29 |de . gra|ph_mode)|
|00000950| 3c 3e 30 20 8c 20 66 6f | 6e 74 20 3d 20 67 72 61 |<>0 . fo|nt = gra|
|00000960| 70 68 5f 66 6f 6e 74 0d | 04 2e 08 c9 20 32 36 0d |ph_font.|.... 26.|
|00000970| 04 38 1a 67 72 61 70 68 | 5f 66 6f 6e 74 20 3d 20 |.8.graph|_font = |
|00000980| 73 65 70 61 72 61 74 65 | 64 0d 04 42 30 e7 20 28 |separate|d..B0. (|
|00000990| 6d 6f 64 65 20 80 20 67 | 72 61 70 68 5f 6d 6f 64 |mode . g|raph_mod|
|000009a0| 65 29 3c 3e 30 20 8c 20 | 66 6f 6e 74 20 3d 20 67 |e)<>0 . |font = g|
|000009b0| 72 61 70 68 5f 66 6f 6e | 74 0d 04 4c 08 c9 20 33 |raph_fon|t..L.. 3|
|000009c0| 31 0d 04 56 23 6d 6f 64 | 65 20 3d 20 6d 6f 64 65 |1..V#mod|e = mode|
|000009d0| 20 80 20 28 ac 20 68 6f | 6c 64 5f 67 72 61 70 68 | . (. ho|ld_graph|
|000009e0| 69 63 73 29 0d 04 60 05 | 7f 0d 04 6a 0f e7 20 63 |ics)..`.|...j.. c|
|000009f0| 68 61 72 3c 33 32 20 8c | 0d 04 74 2f e7 20 28 31 |har<32 .|..t/. (1|
|00000a00| 20 3c 3d 20 28 63 68 61 | 72 20 80 20 31 35 29 29 | <= (cha|r . 15))|
|00000a10| 20 80 20 28 28 63 68 61 | 72 20 80 20 31 35 29 20 | . ((cha|r . 15) |
|00000a20| 3c 3d 20 37 29 20 8c 0d | 04 7e 26 f4 20 41 6c 70 |<= 7) ..|.~&. Alp|
|00000a30| 68 61 20 6f 72 20 47 72 | 61 70 68 69 63 73 20 63 |ha or Gr|aphics c|
|00000a40| 6f 6c 6f 75 72 20 63 68 | 61 6e 67 65 2e 0d 04 88 |olour ch|ange....|
|00000a50| 05 20 0d 04 92 1b 66 6f | 72 65 67 72 6f 75 6e 64 |. ....fo|reground|
|00000a60| 20 3d 20 28 63 68 61 72 | 20 80 20 37 29 0d 04 9c | = (char| . 7)...|
|00000a70| 10 fb 20 66 6f 72 65 67 | 72 6f 75 6e 64 0d 04 a6 |.. foreg|round...|
|00000a80| 05 20 0d 04 b0 18 e7 20 | 28 63 68 61 72 20 80 20 |. ..... |(char . |
|00000a90| 31 36 29 20 3c 3e 20 30 | 20 8c 0d 04 ba 05 20 0d |16) <> 0| ..... .|
|00000aa0| 04 c4 1c f4 20 47 72 61 | 70 68 69 63 73 20 63 6f |.... Gra|phics co|
|00000ab0| 6c 6f 75 72 20 63 68 61 | 6e 67 65 0d 04 ce 1c 6d |lour cha|nge....m|
|00000ac0| 6f 64 65 20 3d 20 6d 6f | 64 65 20 84 20 67 72 61 |ode = mo|de . gra|
|00000ad0| 70 68 5f 6d 6f 64 65 0d | 04 d8 15 66 6f 6e 74 20 |ph_mode.|...font |
|00000ae0| 3d 20 67 72 61 70 68 5f | 66 6f 6e 74 0d 04 e2 05 |= graph_|font....|
|00000af0| cc 0d 04 ec 05 20 0d 04 | f6 19 f4 20 41 6c 70 68 |..... ..|... Alph|
|00000b00| 61 20 63 6f 6c 6f 75 72 | 20 63 68 61 6e 67 65 0d |a colour| change.|
|00000b10| 05 00 20 6d 6f 64 65 20 | 3d 20 6d 6f 64 65 20 80 |.. mode |= mode .|
|00000b20| 20 28 ac 20 67 72 61 70 | 68 5f 6d 6f 64 65 29 0d | (. grap|h_mode).|
|00000b30| 05 0a 18 66 6f 6e 74 20 | 3d 20 61 6c 70 68 61 6e |...font |= alphan|
|00000b40| 75 6d 65 72 69 63 73 0d | 05 14 11 68 6f 6c 64 5f |umerics.|...hold_|
|00000b50| 63 68 61 72 20 3d 20 30 | 0d 05 1e 05 cd 0d 05 28 |char = 0|.......(|
|00000b60| 05 cd 0d 05 32 05 cd 0d | 05 3c 05 cb 0d 05 46 05 |....2...|.<....F.|
|00000b70| ed 0d 05 50 05 ed 0d 05 | 5a 05 20 0d 05 64 0f fb |...P....|Z. ..d..|
|00000b80| 20 31 20 3a 20 fb 20 31 | 32 38 0d 05 6e 0c f2 70 | 1 : . 1|28..n..p|
|00000b90| 72 69 6e 74 65 72 0d 05 | 78 06 eb 37 0d 05 82 0c |rinter..|x..7....|
|00000ba0| f2 72 65 73 74 6f 72 65 | 0d 05 8c 11 f2 72 65 73 |.restore|.....res|
|00000bb0| 74 6f 72 65 63 68 61 72 | 73 0d 05 96 05 e1 0d 05 |torechar|s.......|
|00000bc0| a0 05 20 0d 05 aa 14 dd | f2 64 72 61 77 5f 63 68 |.. .....|.draw_ch|
|00000bd0| 61 72 28 78 2c 79 29 0d | 05 b4 0c f1 20 8a 78 2c |ar(x,y).|.... .x,|
|00000be0| 79 29 3b 0d 05 be 1a e7 | 20 63 68 61 72 3c 33 32 |y);.....| char<32|
|00000bf0| 20 84 20 63 68 61 72 3d | 31 32 38 20 8c 0d 05 c8 | . char=|128 ....|
|00000c00| 0b 63 68 61 72 3d 33 32 | 0d 05 d2 05 cc 0d 05 dc |.char=32|........|
|00000c10| 28 e7 20 28 6d 6f 64 65 | 20 80 20 64 6f 75 62 6c |(. (mode| . doubl|
|00000c20| 65 5f 68 65 69 67 68 74 | 29 20 8c 20 f2 64 6f 75 |e_height|) . .dou|
|00000c30| 62 6c 65 3a e1 0d 05 e6 | 24 e7 20 64 6f 75 62 6c |ble:....|$. doubl|
|00000c40| 65 5f 72 6f 77 20 3d 20 | 6c 6f 77 65 72 20 8c 20 |e_row = |lower . |
|00000c50| 63 68 61 72 20 3d 20 33 | 32 0d 05 f0 1a e7 20 63 |char = 3|2..... c|
|00000c60| 68 61 72 3d 31 32 37 20 | 8c 20 f2 62 6c 6f 64 67 |har=127 |. .blodg|
|00000c70| 65 3a e1 0d 05 fa 05 cd | 0d 06 04 0a ef 20 63 68 |e:......|..... ch|
|00000c80| 61 72 0d 06 0e 05 e1 0d | 06 18 05 20 0d 06 22 0e |ar......|... ..".|
|00000c90| dd f2 64 65 66 63 68 61 | 72 73 0d 06 2c 1d 6c 65 |..defcha|rs..,.le|
|00000ca0| 66 74 25 20 3d 20 26 46 | 30 3a 20 72 69 67 68 74 |ft% = &F|0: right|
|00000cb0| 25 20 3d 20 26 30 46 0d | 06 36 05 20 0d 06 40 1a |% = &0F.|.6. ..@.|
|00000cc0| e3 20 63 68 20 3d 20 31 | 32 38 2b 33 32 20 b8 20 |. ch = 1|28+32 . |
|00000cd0| 31 32 38 2b 36 33 0d 06 | 4a 21 f2 64 65 66 28 63 |128+63..|J!.def(c|
|00000ce0| 68 2c 20 63 68 2d 31 32 | 38 29 20 20 20 20 3a f4 |h, ch-12|8)    :.|
|00000cf0| 20 33 32 2e 2e 36 33 0d | 06 54 22 f2 64 65 66 28 | 32..63.|.T".def(|
|00000d00| 63 68 2b 36 34 2c 20 63 | 68 2d 36 34 29 20 20 3a |ch+64, c|h-64)  :|
|00000d10| f4 20 39 36 2e 2e 31 32 | 37 0d 06 5e 05 ed 0d 06 |. 96..12|7..^....|
|00000d20| 68 05 20 0d 06 72 11 f2 | 6e 6f 6e 5f 73 74 61 6e |h. ..r..|non_stan|
|00000d30| 64 61 72 64 0d 06 7c 0e | 63 68 61 6e 67 65 64 25 |dard..|.|changed%|
|00000d40| 3d b9 0d 06 86 05 e1 0d | 06 90 05 20 0d 06 9a 17 |=.......|... ....|
|00000d50| dd f2 64 65 66 28 63 6f | 64 65 25 2c 20 63 68 61 |..def(co|de%, cha|
|00000d60| 72 25 29 0d 06 a4 26 63 | 25 21 30 3d 30 3a 63 25 |r%)...&c|%!0=0:c%|
|00000d70| 21 34 3d 30 20 20 3a 20 | f4 20 43 6c 65 61 72 20 |!4=0  : |. Clear |
|00000d80| 63 68 61 72 61 63 74 65 | 72 0d 06 ae 05 20 0d 06 |characte|r.... ..|
|00000d90| b8 43 e7 20 28 63 68 61 | 72 25 20 80 20 31 29 20 |.C. (cha|r% . 1) |
|00000da0| 3c 3e 20 30 20 8c 20 63 | 25 3f 30 20 3d 20 6c 65 |<> 0 . c|%?0 = le|
|00000db0| 66 74 25 20 3a 20 63 25 | 3f 31 20 3d 20 6c 65 66 |ft% : c%|?1 = lef|
|00000dc0| 74 25 20 3a 20 63 25 3f | 32 20 3d 20 6c 65 66 74 |t% : c%?|2 = left|
|00000dd0| 25 0d 06 c2 5b e7 20 28 | 63 68 61 72 25 20 80 20 |%...[. (|char% . |
|00000de0| 32 29 20 3c 3e 20 30 20 | 8c 20 63 25 3f 30 20 3d |2) <> 0 |. c%?0 =|
|00000df0| 20 63 25 3f 30 20 84 20 | 72 69 67 68 74 25 20 3a | c%?0 . |right% :|
|00000e00| 20 63 25 3f 31 20 3d 20 | 63 25 3f 31 20 84 20 72 | c%?1 = |c%?1 . r|
|00000e10| 69 67 68 74 25 20 3a 20 | 63 25 3f 32 20 3d 20 63 |ight% : |c%?2 = c|
|00000e20| 25 3f 32 20 84 20 72 69 | 67 68 74 25 0d 06 cc 34 |%?2 . ri|ght%...4|
|00000e30| e7 20 28 63 68 61 72 25 | 20 80 20 34 29 20 3c 3e |. (char%| . 4) <>|
|00000e40| 20 30 20 8c 20 63 25 3f | 33 20 3d 20 6c 65 66 74 | 0 . c%?|3 = left|
|00000e50| 25 20 3a 20 63 25 3f 34 | 20 3d 20 6c 65 66 74 25 |% : c%?4| = left%|
|00000e60| 0d 06 d6 44 e7 20 28 63 | 68 61 72 25 20 80 20 38 |...D. (c|har% . 8|
|00000e70| 29 20 3c 3e 20 30 20 8c | 20 63 25 3f 33 20 3d 20 |) <> 0 .| c%?3 = |
|00000e80| 63 25 3f 33 20 84 20 72 | 69 67 68 74 25 20 3a 20 |c%?3 . r|ight% : |
|00000e90| 63 25 3f 34 20 3d 20 63 | 25 3f 34 20 84 20 72 69 |c%?4 = c|%?4 . ri|
|00000ea0| 67 68 74 25 0d 06 e0 46 | e7 20 28 63 68 61 72 25 |ght%...F|. (char%|
|00000eb0| 20 80 20 26 33 30 29 20 | 3d 20 26 33 30 20 8c 20 | . &30) |= &30 . |
|00000ec0| 63 25 3f 35 20 3d 20 6c | 65 66 74 25 20 3a 20 63 |c%?5 = l|eft% : c|
|00000ed0| 25 3f 36 20 3d 20 6c 65 | 66 74 25 20 3a 20 63 25 |%?6 = le|ft% : c%|
|00000ee0| 3f 37 20 3d 20 6c 65 66 | 74 25 0d 06 ea 5e e7 20 |?7 = lef|t%...^. |
|00000ef0| 28 63 68 61 72 25 20 80 | 20 26 36 30 29 20 3d 20 |(char% .| &60) = |
|00000f00| 26 36 30 20 8c 20 63 25 | 3f 35 20 3d 20 63 25 3f |&60 . c%|?5 = c%?|
|00000f10| 35 20 84 20 72 69 67 68 | 74 25 20 3a 20 63 25 3f |5 . righ|t% : c%?|
|00000f20| 36 20 3d 20 63 25 3f 36 | 20 84 20 72 69 67 68 74 |6 = c%?6| . right|
|00000f30| 25 20 3a 20 63 25 3f 37 | 20 3d 20 63 25 3f 37 20 |% : c%?7| = c%?7 |
|00000f40| 84 20 72 69 67 68 74 25 | 0d 06 f4 05 20 0d 06 fe |. right%|.... ...|
|00000f50| 39 ef 20 32 33 2c 63 6f | 64 65 25 2d 33 32 2c 63 |9. 23,co|de%-32,c|
|00000f60| 25 3f 30 2c 63 25 3f 31 | 2c 63 25 3f 32 2c 63 25 |%?0,c%?1|,c%?2,c%|
|00000f70| 3f 33 2c 63 25 3f 34 2c | 63 25 3f 35 2c 63 25 3f |?3,c%?4,|c%?5,c%?|
|00000f80| 36 2c 63 25 3f 37 0d 07 | 08 4b ef 20 32 33 2c 63 |6,c%?7..|.K. 23,c|
|00000f90| 6f 64 65 25 2c 63 25 3f | 30 20 80 20 26 37 37 2c |ode%,c%?|0 . &77,|
|00000fa0| 63 25 3f 31 20 80 20 26 | 37 37 2c 30 2c 63 25 3f |c%?1 . &|77,0,c%?|
|00000fb0| 33 20 80 20 26 37 37 2c | 30 2c 63 25 3f 35 20 80 |3 . &77,|0,c%?5 .|
|00000fc0| 20 26 37 37 2c 63 25 3f | 36 20 80 20 26 37 37 2c | &77,c%?|6 . &77,|
|00000fd0| 30 0d 07 12 05 20 0d 07 | 1c 70 f4 20 20 26 37 37 |0.... ..|.p.  &77|
|00000fe0| 20 69 73 20 74 68 65 20 | 76 65 72 74 69 63 61 6c | is the |vertical|
|00000ff0| 20 6d 61 73 6b 20 66 6f | 72 20 73 65 70 61 72 61 | mask fo|r separa|
|00001000| 74 65 64 20 67 72 61 70 | 68 69 63 73 3b 20 62 79 |ted grap|hics; by|
|00001010| 74 65 73 20 32 2c 34 2c | 20 61 6e 64 20 37 20 20 |tes 2,4,| and 7  |
|00001020| 62 65 69 6e 67 20 30 2c | 20 20 70 72 6f 76 69 64 |being 0,|  provid|
|00001030| 65 20 74 68 65 20 68 6f | 72 69 7a 6f 6e 74 61 6c |e the ho|rizontal|
|00001040| 20 6d 61 73 6b 2e 0d 07 | 26 05 e1 0d 07 30 05 20 | mask...|&....0. |
|00001050| 0d 07 3a 12 dd f2 6e 6f | 6e 5f 73 74 61 6e 64 61 |..:...no|n_standa|
|00001060| 72 64 0d 07 44 3f ef 20 | 32 33 2c 97 28 22 23 22 |rd..D?. |23,.("#"|
|00001070| 29 2c 26 31 43 2c 26 33 | 36 2c 26 33 30 2c 26 37 |),&1C,&3|6,&30,&7|
|00001080| 43 2c 26 33 30 2c 26 33 | 30 2c 26 37 45 2c 30 20 |C,&30,&3|0,&7E,0 |
|00001090| 3a f4 20 70 6f 75 6e 64 | 20 20 20 20 20 5b 33 35 |:. pound|     [35|
|000010a0| 5d 0d 07 4e 3f ef 20 32 | 33 2c 97 28 22 27 22 29 |]..N?. 2|3,.("'")|
|000010b0| 2c 26 31 38 2c 26 31 38 | 2c 26 31 38 2c 30 2c 30 |,&18,&18|,&18,0,0|
|000010c0| 2c 30 2c 30 2c 30 20 20 | 20 20 20 20 20 20 20 3a |,0,0,0  |       :|
|000010d0| f4 20 74 69 63 6b 20 20 | 20 20 20 20 5b 33 39 5d |. tick  |    [39]|
|000010e0| 0d 07 58 3f ef 20 32 33 | 2c 97 28 22 2a 22 29 2c |..X?. 23|,.("*"),|
|000010f0| 30 2c 26 30 38 2c 26 32 | 41 2c 26 31 43 2c 26 31 |0,&08,&2|A,&1C,&1|
|00001100| 43 2c 26 32 41 2c 26 30 | 38 2c 30 20 20 20 3a f4 |C,&2A,&0|8,0   :.|
|00001110| 20 73 74 61 72 20 20 20 | 20 20 20 5b 34 32 5d 0d | star   |   [42].|
|00001120| 07 62 3f ef 20 32 33 2c | 97 28 22 30 22 29 2c 26 |.b?. 23,|.("0"),&|
|00001130| 31 38 2c 26 33 43 2c 26 | 36 36 2c 26 36 36 2c 26 |18,&3C,&|66,&66,&|
|00001140| 36 36 2c 26 33 43 2c 26 | 31 38 2c 30 20 3a f4 20 |66,&3C,&|18,0 :. |
|00001150| 7a 65 72 6f 20 20 20 20 | 20 20 5b 34 38 5d 0d 07 |zero    |  [48]..|
|00001160| 6c 3f ef 20 32 33 2c 97 | 28 22 5b 22 29 2c 30 2c |l?. 23,.|("["),0,|
|00001170| 26 33 30 2c 26 36 30 2c | 26 46 45 2c 26 46 45 2c |&30,&60,|&FE,&FE,|
|00001180| 26 36 30 2c 26 33 30 2c | 30 20 20 20 3a f4 20 3c |&60,&30,|0   :. <|
|00001190| 2d 20 20 20 20 20 20 20 | 20 5b 39 31 5d 0d 07 76 |-       | [91]..v|
|000011a0| 3f ef 20 32 33 2c 97 28 | 22 5c 22 29 2c 26 36 30 |?. 23,.(|"\"),&60|
|000011b0| 2c 26 36 30 2c 26 36 30 | 2c 26 36 45 2c 26 33 2c |,&60,&60|,&6E,&3,|
|000011c0| 26 36 2c 26 43 2c 26 46 | 20 20 20 3a f4 20 31 2f |&6,&C,&F|   :. 1/|
|000011d0| 32 20 20 20 20 20 20 20 | 5b 39 32 5d 0d 07 80 3f |2       |[92]...?|
|000011e0| ef 20 32 33 2c 97 28 22 | 5d 22 29 2c 30 2c 26 30 |. 23,.("|]"),0,&0|
|000011f0| 43 2c 26 30 36 2c 26 37 | 46 2c 26 37 46 2c 26 30 |C,&06,&7|F,&7F,&0|
|00001200| 36 2c 26 30 43 2c 30 20 | 20 20 3a f4 20 2d 3e 20 |6,&0C,0 |  :. -> |
|00001210| 20 20 20 20 20 20 20 5b | 39 33 5d 0d 07 8a 3f ef |       [|93]...?.|
|00001220| 20 32 33 2c 97 28 22 5e | 22 29 2c 26 31 38 2c 26 | 23,.("^|"),&18,&|
|00001230| 33 43 2c 26 37 45 2c 26 | 35 41 2c 26 31 38 2c 26 |3C,&7E,&|5A,&18,&|
|00001240| 31 38 2c 26 31 38 2c 30 | 20 3a f4 20 75 70 2d 61 |18,&18,0| :. up-a|
|00001250| 72 72 6f 77 20 20 5b 39 | 34 5d 0d 07 94 3f ef 20 |rrow  [9|4]...?. |
|00001260| 32 33 2c 97 28 22 5f 22 | 29 2c 26 33 36 2c 26 33 |23,.("_"|),&36,&3|
|00001270| 36 2c 26 37 46 2c 26 33 | 36 2c 26 37 46 2c 26 33 |6,&7F,&3|6,&7F,&3|
|00001280| 36 2c 26 33 36 2c 30 20 | 3a f4 20 68 61 73 68 20 |6,&36,0 |:. hash |
|00001290| 20 20 20 20 20 5b 39 35 | 5d 0d 07 9e 3f ef 20 32 |     [95|]...?. 2|
|000012a0| 33 2c 97 28 22 60 22 29 | 2c 26 30 2c 26 30 2c 26 |3,.("`")|,&0,&0,&|
|000012b0| 30 2c 26 46 46 2c 26 30 | 2c 26 30 2c 26 30 2c 26 |0,&FF,&0|,&0,&0,&|
|000012c0| 30 20 20 20 20 20 20 3a | f4 20 75 6e 64 65 72 6c |0      :|. underl|
|000012d0| 69 6e 65 20 5b 39 36 5d | 0d 07 a8 3f ef 20 32 33 |ine [96]|...?. 23|
|000012e0| 2c 97 28 22 7b 22 29 2c | 26 33 30 2c 26 33 30 2c |,.("{"),|&30,&30,|
|000012f0| 26 33 30 2c 26 33 32 2c | 26 36 2c 26 41 2c 26 46 |&30,&32,|&6,&A,&F|
|00001300| 2c 26 32 20 20 20 3a f4 | 20 31 2f 34 20 20 20 20 |,&2   :.| 1/4    |
|00001310| 20 20 5b 31 32 33 5d 0d | 07 b2 3f ef 20 32 33 2c |  [123].|..?. 23,|
|00001320| 97 28 22 7c 22 29 2c 26 | 33 36 2c 26 33 36 2c 26 |.("|"),&|36,&36,&|
|00001330| 33 36 2c 26 33 36 2c 26 | 33 36 2c 26 33 36 2c 26 |36,&36,&|36,&36,&|
|00001340| 33 36 2c 30 20 3a f4 20 | 7c 7c 20 20 20 20 20 20 |36,0 :. |||      |
|00001350| 20 5b 31 32 34 5d 0d 07 | bc 3f ef 20 32 33 2c 97 | [124]..|.?. 23,.|
|00001360| 28 22 7d 22 29 2c 26 37 | 30 2c 26 31 38 2c 26 37 |("}"),&7|0,&18,&7|
|00001370| 30 2c 26 31 39 2c 26 37 | 33 2c 26 35 2c 26 37 2c |0,&19,&7|3,&5,&7,|
|00001380| 26 31 20 20 3a f4 20 33 | 2f 34 20 20 20 20 20 20 |&1  :. 3|/4      |
|00001390| 5b 31 32 35 5d 0d 07 c6 | 3f ef 20 32 33 2c 97 28 |[125]...|?. 23,.(|
|000013a0| 22 7e 22 29 2c 30 2c 26 | 31 38 2c 30 2c 26 37 45 |"~"),0,&|18,0,&7E|
|000013b0| 2c 30 2c 26 31 38 2c 30 | 2c 30 20 20 20 20 20 20 |,0,&18,0|,0      |
|000013c0| 20 20 20 3a f4 20 64 69 | 76 69 64 65 20 20 20 5b |   :. di|vide   [|
|000013d0| 31 32 36 5d 0d 07 d0 41 | ef 20 32 33 2c 31 32 37 |126]...A|. 23,127|
|000013e0| 2c 30 2c 26 37 46 2c 26 | 37 46 2c 26 37 46 2c 26 |,0,&7F,&|7F,&7F,&|
|000013f0| 37 46 2c 26 37 46 2c 26 | 37 46 2c 30 20 20 20 20 |7F,&7F,&|7F,0    |
|00001400| 20 20 20 20 3a f4 20 62 | 6c 6f 64 67 65 20 20 20 |    :. b|lodge   |
|00001410| 5b 31 32 37 5d 0d 07 da | 05 e1 0d 07 e4 05 20 0d |[127]...|...... .|
|00001420| 07 ee 0c dd f2 64 6f 75 | 62 6c 65 0d 07 f8 38 f4 |.....dou|ble...8.|
|00001430| 20 45 78 70 6c 6f 64 65 | 20 75 70 70 65 72 20 6f | Explode| upper o|
|00001440| 72 20 6c 6f 77 65 72 20 | 68 61 6c 66 20 6f 66 20 |r lower |half of |
|00001450| 27 63 68 61 72 27 20 69 | 6e 74 6f 20 43 48 52 24 |'char' i|nto CHR$|
|00001460| 31 32 38 0d 08 02 11 f2 | 67 65 74 64 65 66 28 63 |128.....|getdef(c|
|00001470| 68 61 72 29 0d 08 0c 1a | 44 25 20 3d 20 64 65 66 |har)....|D% = def|
|00001480| 6e 20 2b 20 64 6f 75 62 | 6c 65 5f 72 6f 77 0d 08 |n + doub|le_row..|
|00001490| 16 32 ef 20 32 33 2c 31 | 32 38 2c 3f 44 25 2c 3f |.2. 23,1|28,?D%,?|
|000014a0| 44 25 2c 44 25 3f 31 2c | 44 25 3f 31 2c 44 25 3f |D%,D%?1,|D%?1,D%?|
|000014b0| 32 2c 44 25 3f 32 2c 44 | 25 3f 33 2c 44 25 3f 33 |2,D%?2,D|%?3,D%?3|
|000014c0| 0d 08 20 09 ef 20 31 32 | 38 0d 08 2a 05 e1 0d 08 |.. .. 12|8..*....|
|000014d0| 34 05 20 0d 08 3e 10 dd | f2 67 65 74 64 65 66 28 |4. ..>..|.getdef(|
|000014e0| 63 68 29 0d 08 48 0d 64 | 65 66 6e 3f 30 3d 63 68 |ch)..H.d|efn?0=ch|
|000014f0| 0d 08 52 18 c8 99 20 22 | 4f 53 5f 57 6f 72 64 22 |..R... "|OS_Word"|
|00001500| 2c 31 30 2c 64 65 66 6e | 0d 08 5c 05 e1 0d 08 66 |,10,defn|..\....f|
|00001510| 04 0d 08 70 0c dd f2 62 | 6c 6f 64 67 65 0d 08 7a |...p...b|lodge..z|
|00001520| 28 ef 20 32 33 2c 31 32 | 38 2c 30 2c 26 37 46 2c |(. 23,12|8,0,&7F,|
|00001530| 26 37 46 2c 26 37 46 2c | 26 37 46 2c 26 37 46 2c |&7F,&7F,|&7F,&7F,|
|00001540| 26 37 46 2c 30 0d 08 84 | 09 ef 20 31 32 38 0d 08 |&7F,0...|.. 128..|
|00001550| 8e 05 e1 0d 08 98 04 0d | 08 a2 0c dd f2 6d 37 6c |........|.....m7l|
|00001560| 6f 61 64 0d 08 ac 06 eb | 37 0d 08 b6 12 e8 22 46 |oad.....|7....."F|
|00001570| 69 6c 65 6e 61 6d 65 20 | 22 46 24 0d 08 c0 05 db |ilename |"F$.....|
|00001580| 0d 08 ca 0a 48 3d 8e 20 | 46 24 0d 08 d4 0b e3 59 |....H=. |F$.....Y|
|00001590| 3d 30 b8 32 34 0d 08 de | 0b e3 58 3d 30 b8 33 39 |=0.24...|..X=0.39|
|000015a0| 0d 08 e8 09 56 3d 9a 23 | 48 0d 08 f2 18 e7 20 ac |....V=.#|H..... .|
|000015b0| 28 28 59 3d 32 34 29 80 | 28 58 3d 33 39 29 29 ef |((Y=24).|(X=39)).|
|000015c0| 56 0d 08 fc 05 ed 0d 09 | 06 05 ed 0d 09 10 07 d9 |V.......|........|
|000015d0| 23 30 0d 09 1a 05 e1 0d | 09 24 04 0d 09 2e 0e dd |#0......|.$......|
|000015e0| a4 67 65 74 28 78 2c 79 | 29 0d 09 38 0b ef 33 31 |.get(x,y|)..8..31|
|000015f0| 2c 78 2c 79 0d 09 42 18 | c8 99 22 4f 53 5f 42 79 |,x,y..B.|.."OS_By|
|00001600| 74 65 22 2c 31 33 35 20 | b8 20 2c 63 0d 09 4c 06 |te",135 |. ,c..L.|
|00001610| 3d 63 0d 09 56 04 0d 09 | 60 0d dd f2 70 72 69 6e |=c..V...|`...prin|
|00001620| 74 65 72 0d 09 6a 40 f4 | 20 52 45 50 4c 41 43 45 |ter..j@.| REPLACE|
|00001630| 20 4e 45 58 54 20 4c 49 | 4e 45 20 57 49 54 48 20 | NEXT LI|NE WITH |
|00001640| 44 45 53 49 52 45 44 20 | 44 55 4d 50 20 43 4f 4d |DESIRED |DUMP COM|
|00001650| 4d 41 4e 44 20 45 47 20 | 2a 48 61 72 64 63 6f 70 |MAND EG |*Hardcop|
|00001660| 79 46 58 0d 09 74 09 2a | 57 41 49 54 0d 09 7e 05 |yFX..t.*|WAIT..~.|
|00001670| e1 0d 09 88 04 0d 09 92 | 0d dd f2 72 65 73 74 6f |........|...resto|
|00001680| 72 65 0d 09 9c 1b e3 20 | 79 20 3d 20 30 20 b8 20 |re..... |y = 0 . |
|00001690| 50 61 67 65 5f 48 65 69 | 67 68 74 2d 31 0d 09 a6 |Page_Hei|ght-1...|
|000016a0| 1a e3 20 78 20 3d 20 30 | 20 b8 20 50 61 67 65 5f |.. x = 0| . Page_|
|000016b0| 57 69 64 74 68 2d 31 0d | 09 b0 47 e7 20 ac 20 28 |Width-1.|..G. . (|
|000016c0| 28 79 3d 50 61 67 65 5f | 48 65 69 67 68 74 2d 31 |(y=Page_|Height-1|
|000016d0| 29 80 28 78 3d 50 61 67 | 65 5f 57 69 64 74 68 2d |).(x=Pag|e_Width-|
|000016e0| 31 29 29 ef 20 74 65 6c | 65 74 65 78 74 3f 28 78 |1)). tel|etext?(x|
|000016f0| 2b 79 2a 50 61 67 65 5f | 57 69 64 74 68 29 0d 09 |+y*Page_|Width)..|
|00001700| ba 07 ed 20 78 0d 09 c4 | 07 ed 20 79 0d 09 ce 05 |... x...|.. y....|
|00001710| e1 0d 09 d8 04 0d 09 e2 | 0f dd f2 73 61 76 65 63 |........|...savec|
|00001720| 68 61 72 73 0d 09 ec 13 | ea 20 63 68 61 72 25 2c |hars....|. char%,|
|00001730| 6f 66 66 73 65 74 25 0d | 09 f6 0d 6f 66 66 73 65 |offset%.|...offse|
|00001740| 74 25 3d 30 0d 0a 00 14 | e3 20 63 68 61 72 25 3d |t%=0....|. char%=|
|00001750| 33 32 20 b8 20 32 35 35 | 0d 0a 0a 12 f2 67 65 74 |32 . 255|.....get|
|00001760| 64 65 66 28 63 68 61 72 | 25 29 0d 0a 14 1a 63 68 |def(char|%)....ch|
|00001770| 73 61 76 65 25 21 6f 66 | 66 73 65 74 25 3d 64 65 |save%!of|fset%=de|
|00001780| 66 6e 21 31 0d 0a 1e 0e | 6f 66 66 73 65 74 25 2b |fn!1....|offset%+|
|00001790| 3d 34 0d 0a 28 1a 63 68 | 73 61 76 65 25 21 6f 66 |=4..(.ch|save%!of|
|000017a0| 66 73 65 74 25 3d 64 65 | 66 6e 21 35 0d 0a 32 0e |fset%=de|fn!5..2.|
|000017b0| 6f 66 66 73 65 74 25 2b | 3d 34 0d 0a 3c 0b ed 20 |offset%+|=4..<.. |
|000017c0| 63 68 61 72 25 0d 0a 46 | 05 e1 0d 0a 50 04 0d 0a |char%..F|....P...|
|000017d0| 5a 12 dd f2 72 65 73 74 | 6f 72 65 63 68 61 72 73 |Z...rest|orechars|
|000017e0| 0d 0a 64 13 ea 20 63 68 | 61 72 25 2c 6f 66 66 73 |..d.. ch|ar%,offs|
|000017f0| 65 74 25 0d 0a 6e 0d 6f | 66 66 73 65 74 25 3d 30 |et%..n.o|ffset%=0|
|00001800| 0d 0a 78 14 e3 20 63 68 | 61 72 25 3d 33 32 20 b8 |..x.. ch|ar%=32 .|
|00001810| 20 32 35 35 0d 0a 82 1a | 64 65 66 6e 21 31 3d 63 | 255....|defn!1=c|
|00001820| 68 73 61 76 65 25 21 6f | 66 66 73 65 74 25 0d 0a |hsave%!o|ffset%..|
|00001830| 8c 0e 6f 66 66 73 65 74 | 25 2b 3d 34 0d 0a 96 1a |..offset|%+=4....|
|00001840| 64 65 66 6e 21 35 3d 63 | 68 73 61 76 65 25 21 6f |defn!5=c|hsave%!o|
|00001850| 66 66 73 65 74 25 0d 0a | a0 0e 6f 66 66 73 65 74 |ffset%..|..offset|
|00001860| 25 2b 3d 34 0d 0a aa 0d | ef 32 33 2c 63 68 61 72 |%+=4....|.23,char|
|00001870| 25 0d 0a b4 0c e3 20 6e | 25 3d 31 b8 38 0d 0a be |%..... n|%=1.8...|
|00001880| 0d ef 20 64 65 66 6e 3f | 6e 25 0d 0a c8 05 ed 0d |.. defn?|n%......|
|00001890| 0a d2 05 ed 0d 0a dc 0e | 63 68 61 6e 67 65 64 25 |........|changed%|
|000018a0| 3d a3 0d 0a e6 05 e1 0d | 0a f0 04 0d 0a fa 0f dd |=.......|........|
|000018b0| f2 73 61 76 65 6d 6f 64 | 65 37 0d 0b 04 19 e3 20 |.savemod|e7..... |
|000018c0| 79 20 3d 20 30 20 b8 20 | 50 61 67 65 5f 48 65 69 |y = 0 . |Page_Hei|
|000018d0| 67 68 74 0d 0b 0e 1a e3 | 20 78 20 3d 20 30 20 b8 |ght.....| x = 0 .|
|000018e0| 20 50 61 67 65 5f 57 69 | 64 74 68 2d 31 0d 0b 18 | Page_Wi|dth-1...|
|000018f0| 27 74 65 6c 65 74 65 78 | 74 3f 28 78 2b 79 2a 50 |'teletex|t?(x+y*P|
|00001900| 61 67 65 5f 57 69 64 74 | 68 29 3d a4 67 65 74 28 |age_Widt|h)=.get(|
|00001910| 78 2c 79 29 0d 0b 22 07 | ed 20 78 0d 0b 2c 07 ed |x,y)..".|. x..,..|
|00001920| 20 79 0d 0b 36 05 e1 0d | 0b 40 04 0d 0b 4a 0b dd | y..6...|.@...J..|
|00001930| f2 65 72 72 6f 72 0d 0b | 54 06 eb 37 0d 0b 5e 0c |.error..|T..7..^.|
|00001940| f2 72 65 73 74 6f 72 65 | 0d 0b 68 1c e7 20 63 68 |.restore|..h.. ch|
|00001950| 61 6e 67 65 64 25 20 f2 | 72 65 73 74 6f 72 65 63 |anged% .|restorec|
|00001960| 68 61 72 73 0d 0b 72 05 | e1 0d ff                |hars..r.|...     |
+--------+-------------------------+-------------------------+--------+--------+